
(define r (eval-program (read-program "(+ 50 50)")))

(= r 100)

